home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
pc_board
/
callid1.zip
/
CALLERID.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1993-04-16
|
2KB
|
173 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 1.OO (plain) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Integer INTEGER001
Integer INTEGER002
Integer INTEGER003
Integer INTEGER004
Integer INTEGER005
Integer INTEGER006
String STRING001
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
String STRING007
String STRING008
String STRING009
String STRING010
String STRING011
;------------------------------------------------------------------------------
STRING005 = "P"
STRING006 = "O"
STRING011 = " -()+"
GetToken INTEGER001
GetToken INTEGER002
GetToken INTEGER003
GetToken STRING002
GetToken STRING003
GetToken STRING004
If (STRING002 <> "") Then
If (Exist(STRING002)) Then
Delete STRING002
Endif
Endif
STRING001 = CallId()
GetUser
If (((U_Sec < INTEGER001) || (U_Sec > INTEGER002)) || (STRING001 == "")) Stop
If (STRING004 <> "") Then
STRING008 = U_HVPhone
For INTEGER006 = 1 To Len(STRING011)
STRING008 = Strip(STRING008, Mid(STRING011, INTEGER006, 1))
Next
If (Left(STRING008, 1) == "1") Then
STRING008 = Mid(STRING008, 2, Len(STRING008) - 1)
Endif
If (STRING008 == "") STRING008 = "0000000000"
STRING009 = U_BDPhone
For INTEGER006 = 1 To Len(STRING011)
STRING009 = Strip(STRING009, Mid(STRING011, INTEGER006, 1))
Next
If (Left(STRING009, 1) == "1") Then
STRING009 = Mid(STRING009, 2, Len(STRING009) - 1)
Endif
If (STRING009 == "") STRING009 = "00000000000"
Endif
If (INTEGER003 == 1) Then
INTEGER004 = InStr(STRING001, "NMBR = ")
INTEGER005 = 7
ElseIf (INTEGER003 > 11) Then
INTEGER004 = INTEGER003
INTEGER005 = -11
Else
PrintLn "I don't know that IDType ("
Stop
Endif
If (INTEGER004 == 0) Stop
STRING010 = Upper(Trim(Mid(STRING001, INTEGER004 + INTEGER005, 10), " "))
If ((Left(STRING010, 1) == STRING005) && (STRING003 <> "")) Then
If (Exist(STRING003)) Then
DispFile STRING003, 4 + 2 + 1
Endif
ElseIf ((Left(STRING010, 1) == STRING006) && ("" <> "")) Then
If (Exist("")) Then
DispFile "", 4 + 2 + 1
Endif
ElseIf (((STRING004 <> "") && (Right(STRING010, Len(STRING008)) <> STRING008)) && (Right(STRING010, Len(STRING009)) <> STRING009)) Then
If (Exist(STRING004)) Then
DispFile STRING004, 4 + 2 + 1
Endif
Endif
STRING007 = "1234567890"
If (Len(STRING010) < 10) Stop
For INTEGER004 = 1 To 10
If (InStr(STRING007, Mid(STRING010, INTEGER004, 1)) == 0) Stop
Next
If (STRING002 <> "") Then
FOpen 1, STRING002, 1, 3
FPutLn 1, Left(STRING010, 3), "-", Mid(STRING010, 4, 3), "-", Right(STRING010, 4)
FClose 1
Endif
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 1 End
; 24 Goto
; 24 Let
; 1 PrintLn
; 23 If
; 3 DispFile
; 1 FOpen
; 1 FClose
; 1 FPutLn
; 1 GetUser
; 1 Delete
; 6 GetToken
; 5 Stop
;
;
; ■ Functions used :
;
; 1 -
; 10 +
; 2 -
; 10 ==
; 8 <>
; 5 <
; 3 <=
; 2 >
; 6 >=
; 17 !
; 10 &&
; 5 ||
; 9 Len(
; 1 Upper()
; 7 Mid()
; 5 Left()
; 3 Right()
; 2 InStr()
; 1 Trim()
; 2 Strip()
; 1 CallId()
; 4 Exist()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 3 For/Next
; 0 While/EndWhile
; 14 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------